home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 111
/
111.d81
/
set shadow
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
42 lines
3 poke53280,0
5 dv=peek(186):ifdv<8thendv=8
6 poke53265,11:goto2000
10 sys57812"shadow.ml",dv,0:poke780,0:poke781,14:poke782,206:sys65493
15 print"goto1000:rem [211]ave your [195]ustom [210]egisters and [210]eturn to [204]oadstar
20 [158]52750:[158]52762
30 [151]53161[170]17,0:[151]53204[170]17,1
35 [151]53157,30
40 [158]52753:[129]x[178]0[164]150[169]2:[151]53158,x:[130]
50 [128]
1000 [158]52762:[151]53269,0
1010 [133]"filename";f$:[139]f$[178]""[167]1050
1015 [159]15,dv,15,"s0:"[170]f$:[160]15
1020 [158]57812(f$),dv:[151]193,14:[151]194,206
1030 [151]174,0:[151]175,208:[158]62954
1040 [153]"load done"
2000 [139][194](49152)[178]120[167]2015
2001 [143] sys57812"font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
2015 [151]53272,23:[153]"loadcont":[151]53281,0
2020 [129]x[178]0[164]22:[153]" spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
2040 [153]"open "
2041 [153]"spc(open 1. valdit (NULL)hadow (NULL)egisters "
2042 [153]"spc(open "
2043 [153]"spc(open 2. (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) "
2044 [153]"spc(open "
2045 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("
2050 [151]165,4:[151]53265,27:[151]53280,14
2060 [151]198,0
2070 [161]z$:[139]z$[178]""[167]2070
2080 z[178][197](z$):[139](z[178]0)[176](z[177]2)[167]2070
2090 [139]z[178]2[167]61000
2100 [153]"load":[151]53281,6:[151]646,14:[137]10
10000 [159]15,8,15,"s0:set shadow":[160]15:[148]"0:set shadow",8:[128]
59999 [128]
60000 [159]15,8,15,"s0:set shadow":[160]15:[148]"0:set shadow.",8:[128]
61000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]61020
61010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
61020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[158]64738
61030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
61040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
61999 [128]